home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
misc
/
zpoint_3_14.lha
/
zpoint-3.14
/
Rexx
/
Port2zeitweise.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
2KB
|
62 lines
/**************************************************************************
* $VER:Port2zeitweise.zp von D.Weber V0.66 (20.5.1994)
* Netcallscript für Server mit 2.Ports, von dem einer nur zeitweise *
* online ist von Dirk Weber Ich übernehme keinerlei Verantwortung für *
* irgendwas, was dieses Skript verursacht! Bugs bitte melden an *
* WEBER@DEBUWI.GUN.DE *
* Lauffähig erst ab ZP-Version >= 37.137 ! *
* Aufruf über F-Taste: in fkeys.zp mit Parameterübergabe eintragen. Bsp: *
* F2:SYS:REXXC/RX ZP:Scripts/Port2zeitweise.zp %s *
**************************************************************************/
parse arg zpPort
/* Configdatei für 24h online Port(s) */
ofl=config2.zp
/* Configdatei mit allen Ports online */
onl=config.zp
/* Configdatei der ständigen Benutzung */
cfg=config3.zp
/* Offlinezeitbegin, erste offline-Stunde eingeben Bsp. ab 5.59 offline -> 2beg=6 */
beg=6
/* Offlinezeitende, letzte offline-Stunde eingeben Bsp. ab 18:00 online -> 2end=17 */
end=17
address value zpPort
options results
WHICHLEVEL
IF (RESULT = 'MAINMENU') THEN CALL nc
ELSE DO
REQUESTRESPONSE 'Du befindest Dich nicht im Hauptmenu. Netcall trotzdem starten?'
IF RC=1 THEN DO
WHICHLEVEL
IF (RESULT = 'BOARDMENU') THEN DO
MAINMENU
CALL nc
EXIT
END
ELSE DO
BOARDMENU
MAINMENU
CALL nc
EXIT
END
EXIT
END
ELSE EXIT
END
EXIT
nc: LOADCONFIG onl
IF TIME('H')>beg THEN IF TIME('H')<end THEN LOADCONFIG ofl
NETCALL
LOADCONFIG cfg